home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Snow.AMOS / Snow.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  2001-05-28  |  1.5 KB  |  88 lines
  1. SNOW=31
  2. Dim XS(SNOW),YS(SNOW),SP(SNOW),XO(SNOW),YO(SNOW)
  3. Screen Open 0,320,256,4,Lowres : Flash Off : Curs Off 
  4. Cls 0 : Ink 1
  5. Paper 0 : Pen 2
  6. Palette $447,$FFF,$F00
  7. Bar 0,250 To 320,256
  8.  
  9. For N=1 To 10
  10.    Read A$
  11.    Locate ,N*2 : Centre A$
  12. Next 
  13.  
  14. Data "God j�kla juldikt 1995:"
  15. Data ""
  16. Data "Hoppas tomten ï¿½r sn�ll i ï¿½r"
  17. Data "Och vi m�nga klappar f�r"
  18. Data "Jag vill ha en gr�vmaskin"
  19. Data "Och sl� i huvet p� sm� barn"
  20. Data "I ansiktet ett v�ldigt flin"
  21. Data "N�r jag prejar Lokets gran"
  22. Data ""
  23. Data "- Copyright SD 1995"
  24.  
  25. Double Buffer : Autoback 0 : Screen Swap 
  26. Bob Update Off 
  27.  
  28. For N=0 To SNOW
  29.    XS(N)=Rnd(316)
  30.    YS(N)=Rnd(250)
  31.    SP(N)=Rnd(3)+1
  32. Next 
  33.  
  34. Repeat 
  35.    Bob Clear 
  36.    
  37.    For N=0 To CNT
  38.       If CNT=0 Then Goto SKIPDRAW
  39.       Paste Bob XO(N),YO(N),1
  40.    Next 
  41.    
  42.    SKIPDRAW:
  43.    
  44.    For N=0 To SNOW
  45.       Add XS(N),Rnd(4)-2
  46.       Add YS(N),SP(N)
  47.       
  48.       If YS(N)>255
  49.          YS(N)=-4 : XS(N)=Rnd(316)
  50.       End If 
  51.       
  52.       Bob N,XS(N),YS(N),1
  53.    Next 
  54.    
  55.    CNT=0
  56.    
  57.    For N=0 To SNOW
  58.       If Point(XS(N)+2,YS(N)+3)=1
  59.          Paste Bob XS(N),YS(N),1
  60.          XO(CNT)=XS(N)
  61.          YO(CNT)=YS(N)
  62.          Inc CNT
  63.          YS(N)=-4 : XS(N)=Rnd(316)
  64.       End If 
  65.    Next 
  66.    
  67.    Bob Draw 
  68.    Screen Swap 
  69.    Wait Vbl 
  70.    
  71. Until Key State(69)=-1
  72. Edit 
  73.  
  74. 'MAKE_BOBS 
  75. Procedure MAKE_BOBS
  76.    For Y=0 To 3
  77.       For X=0 To 3
  78.          Read HALLONSAFT
  79.          If HALLONSAFT=1 Then Plot X,Y
  80.       Next 
  81.    Next 
  82.    Get Bob 1,0,0 To 4,4
  83.    Cls 0
  84.    Data 0,1,1,0
  85.    Data 1,1,1,1
  86.    Data 1,1,1,1
  87.    Data 0,1,1,0
  88. End Proc